Private Sub UserForm_Activate()

    If Not TreeView1.SelectedItem.Parent Is Nothing Then

        Label2.Caption = "  : " & TreeView1.SelectedItem.Parent.Children

    End If

    If Not TreeView1.SelectedItem.Child Is Nothing Then

        Label2.Caption = "  : " & TreeView1.SelectedItem.Children

    End If

End Sub
